0 PRINT X
1 Y=0
5 X=-999
10 X=X+1
12 V = X - 1
13 W = X - 1
14 GOTO 100
15 IF Z>48 THEN Y=Y+1
16 PRINT Z
20 IF X<999 THEN GOTO 10
25 PRINT Y
30 STOP
100 Z=0
101 IF W<0 THEN GOTO 1000
102 IF W=0  THEN  GOTO 15
103 W = W - 1
104 Z = Z + V
199 GOTO 101
1000 W=0-W
1001 X=0-X
1002 GOTO 102
RUN
